10 DATA 3E,0: ' LD A, 0 - Constante: MODO
20 DATA CD,0E,BC: ' CALL &BC0E - SET MODE
30 DATA 3E,2: ' LD A, 2
40 DATA 32,34,75: ' LD (30004), A - Asignacion: COLOR=2
50 DATA 3A,34,75: ' LD A, (30004) - Variable: COLOR
60 DATA CD,90,BB: ' CALL &BB90 - SET PEN
70 DATA 3E,1: ' LD A, 1
80 DATA CD,96,BB: ' CALL &BB96 - SET PAPER
90 DATA 3E,A: ' LD A, 10
100 DATA CD,6F,BB: ' CALL &BB6F - CURSOR COLUMN
110 DATA 3E,A: ' LD A, 10 - Constante: LINEA1
120 DATA CD,72,BB: ' CALL &BB72 - CURSOR ROW
130 ' Etiqueta de salto: SALTO, posicion: 30131
140 DATA 3E,61: ' LD A, "a"
150 DATA CD,5A,BB: ' CALL &BB5A - WRITECHAR
160 DATA C3,B3,75: ' JP SALTO
170 DATA C9: ' RET
180 longitud = 39
190 MEMORY 29999
200 'Codigo del programa
210 FOR n=30100 TO 30100+longitud
220   READ a$:POKE n,VAL("&"+a$)
230 NEXT
240 'Espacio para variables
250 FOR n=30000 TO 30099
260   POKE n,0
270 NEXT
280 POKE 30000, &CD: 'inicio: CALL 30100
290 POKE 30001,148
300 POKE 30002,117
310 CALL 30000
